(list-options): Put "obsolete" msg in buffer.

diff --git a/lisp/obsolete/options.el b/lisp/obsolete/options.el
index 1383666a9b1f8e4c839501be8f6ccc30a433d743..968a0bac5f6f1fa7bbf9f88f4d82965280566de2 100644 (file)
--- a/lisp/obsolete/options.el
+++ b/lisp/obsolete/options.el
@@ -41,6 +41,8 @@ It is now better to use Customize instead."
   (interactive)
   (with-output-to-temp-buffer "*List Options*"
     (let (vars)
+      (princ "This facility is obsolete; we recommend using M-x customize instead.")
+
       (mapatoms (function (lambda (sym)
                            (if (user-variable-p sym)
                                (setq vars (cons sym vars))))))